www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\friendLink\friendLink_Update.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!-- #include file="../include/Function.Manage.Config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>友情链接修改</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css"/>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function form1_onsubmit()
{
if (document.form1.SiteName.value=="")
{
window.alert("请输入站点名称");
document.form1.SiteName.focus();
return false;
}
if (document.form1.SiteUrl.value=="")
{
window.alert("请输入站点URL");
document.form1.SiteUrl.focus();
return false;
}
}
</script>
</head>
<body id="bodyBg1">
<br />
<a href="friendLink_Manage.asp">友情链接管理</a> | <a href="friendLink_Add.asp">添加友情链接</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>修改友情链接管理</dt>
<dd>
<br />
<%
if (Request.Form("SiteName") <> "") then
ID=Request.Form("ID")
SiteName=Request.Form("SiteName")
SiteUrl=Request.Form("SiteUrl")
LinkType=Request.Form("LinkType")
IsOK=Request.Form("IsOK")
SiteIntro=Request.Form("SiteIntro")
LogoUrl=Request.Form("LogoUrl")
orderID=Request.Form("orderID")
Set rsFriendSite=Server.CreateObject("Adodb.Recordset")
sql="Select * from deep_FriendLink where fid=" & ID
rsFriendSite.open sql,conn,3,2
rsFriendSite("fname")=SiteName
rsFriendSite("furl")=SiteUrl
rsFriendSite("ftip")=SiteIntro
rsFriendSite("flogoUrl")=LogoUrl
rsFriendSite("flinkType")=LinkType
rsFriendSite("fisView")=IsOK
rsFriendSite("forderID")=orderID
rsFriendSite.update
rsFriendSite.close
Set rsFriendSite=Nothing
Response.Write("<p align='center'>友情链接：["& SiteName &"] 修改成功</p>")
else
ID = Request.QueryString("ID")
Set rstFriendSite=Server.CreateObject("Adodb.Recordset")
sql="Select * from deep_FriendLink where fid=" & ID
rstFriendSite.open sql,conn,0,1
%>
<form id="form1" name="form1" method="post" action="" onsubmit="return form1_onsubmit()">
<table width="95%" border="0" align="center" class="tableBoderForm">
<tr>
<td>站点名称：</td>
<td><input name="SiteName" type="text" value="<%=rstFriendSite("fname")%>"/> </td>
</tr>
<tr>
<td>站点URL：</td>
<td><input name="SiteUrl" type="text" size="60" value="<%=rstFriendSite("furl")%>"/></td>
</tr>
<tr>
<td>LOGO地址：</td>
<td><input name="LogoUrl" type="text" id="LogoUrl" size="60" value="<%=rstFriendSite("flogoUrl")%>"/></td>
</tr>
<tr>
<td> </td>
<td><iframe ID="UploadFiles" frameborder="0" scrolling="no" width="600" height="25" src="../include/upload_form.asp?SavePath=../../uploadFile/friendLink/&parentBackValue=form1.LogoUrl&MaxSize=500&FileType=gif/jpg/png/bmp&saveName=0"></iframe>
<br />上传图片尺寸 88X31 </td>
</tr>
<tr>
<td>站点简介：</td>
<td><textarea name="SiteIntro" cols="80" rows="8"><%=rstFriendSite("ftip")%></textarea></td>
</tr>
<tr>
<td>友情链接类型：</td>
<td><input name="LinkType" type="radio" value="0" <%if rstFriendSite("flinkType")=0 then%>checked="checked"<%end if%> />文字连接
<input type="radio" name="LinkType" value="1" <%if rstFriendSite("flinkType")=1 then%>checked="checked"<%end if%>/>图片连接</td>
</tr>
<tr>
<td>是否审核：</td>
<td><input name="IsOK" type="radio" value="1" <%if rstFriendSite("fisView")=1 then%>checked="checked"<%end if%> />审核
<input type="radio" name="IsOK" value="0" <%if rstFriendSite("fisView")=0 then%>checked="checked"<%end if%> />未审核</td>
</tr>
<tr>
<td>排序id：</td>
<td><input name="orderID" type="text" id="orderID" maxlength="5" value="<%=rstFriendSite("forderID")%>" /></td>
</tr>
<tr>
<td><input type="hidden" name="ID" value="<%=id%>" /></td>
<td><input type="submit" name="Submit" value="修改" />
<input type="reset" name="Reset" value="重置" /></td>
</tr>
</table>
</form>
<%end if%>
<br />
</dd>
</dl>
<p align="center"><span class="cRed">*</span> 必添内容</p>
</body>
</html>
<%Call CloseConnDB()%>